# Methods handling settings such as target directories etc. 
# 
###############################################################################

#' Constructs a default reporting class, writing an Html report to the current working directory.
#' 
#' @param master Logical indicating whether the report is the master i.e. root report of a set of reports.
#' @export
#' @author Bastian R. Angermann
defaultReport <-function (master=TRUE) { report <- new(Class="HtmlReport",master=master,
                                                  new(Class="Object","referenceContainer"=new.env()));
                              report@location <- function() {getValue(report,"location")};
                              setValue(report,"masterReport",report);
                              if (master)
                                setValue(report,"currentReport",report);
                              setValue(report,"plotInProgress",FALSE);
                              setValue(report,"reportInProgress",FALSE);
                              setValue(report,"resolution",defaultResolution);
                              setValue(report,"width",defaultWidth);
                              setValue(report,"height",defaultHeight);
                              setLocation(report,getwd());
                              return(report)} # TODO there should be an easier way of doing this

#' The plots default resolution in dpi, as used by the png image device
#' 
#' @export
#' @author Bastian R. Angermann
defaultResolution <- 200

#' The plots default width in inch
#' 
#' @export
#' @author Bastian R. Angermann
defaultWidth <- 6

#' The plots default height in inch
#' 
#' @export
#' @author Bastian R. Angermann
defaultHeight <- 4
